#! /usr/bin/perl

use 5.020;
use utf8;
use warnings;
use strict;

my $msg;
if ($ARGV[0]) {
	for (@ARGV) {
		$msg .= $_ . ' ';
	}
} else {
	$msg = 'Kikyo';
}

say "$msg";

say `git add *`;
say `git commit -m "$msg"`;
say `git push -u oschina master`;
say `git push -u github master`;
